home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cadgeo.sda / BOOT (.txt) next >
Commodore BASIC  |  2009-10-10  |  6KB  |  40 lines
  1. 1 REM **  CAD VERSION 4.0   **
  2. 2 REM ** BY STEPHEN P. NYE  **
  3. 3 REM **    76703,4032      **
  4. 4 REM ** COPYRIGHT (C) 1987 **
  5. 5 REM
  6. 6 REM ** PERMISSION GRANTED FOR DISTRIBUTION THROUGH COMPUSERVE CBMART ONLY **
  7. 7 REM ** NOT TO BE DISTRIBUTED OR COPIED BY ANY OTHER MEANS **
  8. 8 REM
  9. 9 POKE780,0:SYS65424
  10. 10 ONAGOTO16,17,18,19,20
  11. 11 D0=PEEK(186):D1=9+(D0=9):POKE53280,14:POKE53281,12
  12. 12 PRINTCHR$(14);"[147]"
  13. 13 PRINT"1 DRIVE OR 2 DRIVE SYSTEM? (1/2)":GOSUB38:IFVAL(A$)=1THEND1=D0
  14. 14 PRINT"[211]YSTEM IS LOADING...PLEASE WAIT"
  15. 15 A=1:LOAD"USRPKG",D0,1
  16. 16 A=2:LOAD"SYSPKG",D0,1
  17. 17 A=3:LOAD"SYSPKGII",D0,1
  18. 18 A=4:LOAD"SPRITES",D0,1
  19. 19 A=5:SYS36867:LOAD"SYSPKGIII",D0,1
  20. 20 OPEN15,D0,15,"UI:":CLOSE15
  21. 21 REM BO IS BORDER COLOR
  22. 22 REM FC IS FOREGROUND COLOR
  23. 23 REM BC IS BACKGROUND COLOR
  24. 24 REM CU IS CURSOR COLOR
  25. 25 REM SF IS THE CURSOR SPEED
  26. 26 REM SS IS SUPERSPEED VALUE(SPEED 0)
  27. 27 POKE785,0:POKE786,193:BO=14:FC=01:BC=12:CU=11:SF=1:SS=25:PRINT"[147]"
  28. 28 A=USR(9),16384:A=USR(7),BO:A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(5),FC,BC
  29. 29 A=USR(6),0,BC:A=USR(6),1,1:A=USR(19):A=USR(21):POKE36862,D0:POKE36863,D1
  30. 30 A=USR(35),0,CU:A=USR(35),1,CU:A=USR(35),2,CU:A=USR(35),3,CU
  31. 31 A=USR(35),6,CU:A=USR(35),7,CU:A=USR(39),0,16:A=USR(39),1,17:A=USR(39),2,17
  32. 32 A=USR(39),3,17:A=USR(39),6,22:A=USR(39),7,23:X=72:Y=137:A=USR(34),X,Y,0
  33. 33 FORT=1TO6000:NEXT
  34. 34 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
  35. 35 GETA$:IFA$=""THEN35
  36. 36 POKE780,ASC(A$):SYS32813
  37. 37 GOTO34
  38. 38 GETA$:IFA$=""THEN38
  39. 39 RETURN
  40.